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-- Rectangledefs.mesa Edited by Sandman on May 24, 1977 9:13 AM 

DIRECTORY 

Mopcodes: FROM "mopcodes", 
SegmentDefs: FROM "segmentdef s"; 

RectangleDefs: DEFINITIONS « 
BEGIN 

— Magic memory locations and assoc. constants 

mousebuttonsup: CARDINAL = 7; 

-- Constants for Display stuff 

leftmargin: CARDINAL = 10; 

blanklines: CARDINAL = 6; -- # of blank lines at the top 

maxwordsperl ine: CARDINAL = 38; 

maxb i tsperl ine: CARDINAL = maxwordsperl ine*16; 

minwidth: CARDINAL = 32; 

minheight: CARDINAL = 32; 

-- some TYPE'S and null POINTERS 

restype: TYPE = {high, low}; 
backgtype: TYPE = {white, black}; 
xCoord: TYPE = [0. .606]; 
yCoord: TYPE = [0. .808]; 

-- Display Hardware Stuff 

DCBchainHead: DCBptr = LOOPHOLE[420B] ; 
DCBnil: DCBptr = LOOPHOLE[0]; 
DCBptr: TYPE = POINTER TO DCB; 
DCB: TYPE = MACHINE DEPENDENT RECORD 

[ 

next: DCBptr, 

resolution: restype, 

background: backgtype, 

indenting: [0..77B], -- in units of 16 bits 

width: [0..377B], -- likewise; must be even 

bitmap: BMptr, -- must be even 

height: CARDINAL -- in double scan lines 

]; 

-- Font Stuff 

FHptr: TYPE = POINTER TO FontHeader; 
Fptr: TYPE = POINTER TO FONT; 
FCDptr: TYPE = POINTER TO FCD; 
FAptr: TYPE = POINTER TO fontarray; 
fontarray: TYPE = ARRAY [0..255] OF FCDptr; 

FONT: TYPE = MACHINE DEPENDENT RECORD 

[ 

FHeader: FontHeader, 

FCDptrs: fontarray, -- array of self-relative pointers to 

-- FCD's. Indexed by char value. 

-- font pointer points hear! 
ExtFCDptrs: fontarray -- array of self-relative pointers to 

-- rCD's for extentions. As large an 

-- array as needed. 

]; 

FontHeader: TYPE = MACHINE DEPENDENT RECORD 

MaxHeight: CARDINAL, -- height of tallest char in font (scan lines) 
Var iabloV^/idth: [0..1], -- TF TRUE, proportionally spaced font 
blank: [0..177B], -- not used 
MaxWidth: [0..377B] -- width of widest char in font (raster units). 

]: 

rCD: TYPF = MACHTNE DrPENOrNT RECORD 

[ 

widthORext: [0..77777B], -- width or extention index 

HasNoFxtens ion: BOOIEAN. -- TRUr=> no ex t . : prevf i el d=w i dth 
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height: [0..377B], 
displacement: [0. .377B] 

]; 

— Bit Map Stuff 



# scan lines to skip for char 
displacement back to char bitmap 



BitmapError: SIGNAL [bitmap: BMHandle, error: BitmapErrorCode] ; 
Bi tmapErrorCode: TYPE = {BitmapOperation}; 
BITMAP: TYPE = WORD; -- array [0..15] of word 
BMptr: TYPE = POINTER TO BITMAP; 
BMHandle: TYPE = POINTER TO BitmapObject; 

BitmapObject: TYPE = RECORD -- all about a Bitmap 



[ 

Tin 

rec 

deb 

add 

wor 

wor 

xO: 

yO: 

wid 

hei 

ind 

res 

bac 

]; 



-- n NIL iff being displayed 
- list of display streams for this map 



k: BMHandle. 
tangles: Rptr 

DCBptr, 

r: BMptr, -- it's address 
ds: CARDINAL, -- size of map (in words) 
dsperline: [0. .maxwordsperl ine] , 

xCoord, -- x,y of upper left corner 

yCoord, 
th: xCoord, 
ght: yCoord, 

enting: [0.,77B], -- in units of 16 bits 
olution: restype, 
kground: backgtype 



stuff for Bitmap Rectangles 



Rectangl 
Rectangl 
Rptr: TY 
Rectangl 

c 

link: 
vis ibl 
option 
bitmap 
xO , wi 
yO, he 

3j 



eError: SIGNAL [rectangle: Rptr , error :RectangleErrorCode] ; 
eErrorCode: TYPE = {Righ tOverf low, BottomOverf low, NotVisible}; 
PE = POINTER TO Rectangle; 
e: TYPE = RECORD 

Rptr, 

e: BOOLEAN, 

s: ROptions, 

: BMHandle, 

dth, cw: xCoord, 

ight, ch: yCoord 



-- Rectangle options field definitions 



ROptions: TYPE = RECORD 

[ 

Notelnvisible: BOOLEAN. 

NoteOverf low: BOOLEAN 

BITBLT stuff 



Rectangle options 

SIGNAL if rectangle off bitmap 
SIGNAL if storing outside 



BBptr: TYPE = POINTER TO BBTable; 

BBoperation: TYPE = {replace, paint, invert, erase}; 

BBsourcetype: TYPE = {block, compliment, andgray, gray}; 

GrayArray: TYPE = ARRAY [0..3] OF WORD; 

GrayPtr: TYPE = POINTER TO GrayArray; 



BBTabl 

[ 

pad: 

sour 

f unc 

unus 

dbca 

dbinr 

dlx: 

dty: 

dw : 

dh: 

sbca 

sbmr 



TYPE = MACHINE DTPFNOENT RECORD 



[0. .7777B], 
cetype: BBsourcetype. 
Lion: BBoperation, 
ed: CARDINAL. 
BMplr. 



CARDINAI 
CARDTNAl , 
CARDTNAI . 
CARDINAL, 
CARDINAL, 
BMptr, 
CARDINAI 



d e s t i n a t i n 
dest iiiat ion 
destifiation 
dest ination 



BCA 

w id th( in words ) 

left X 

top y 



source BCA 

source width(in words) 
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six: CARDINAL, — source left x 

sty: CARDINAL, — source top y 

grayO: CARDINAL, -- four words of "gray" 

grayl: CARDINAL, 

gray2: CARDINAL, 

gray3: CARDINAL 

3; 

-- Procedures Implementing RECTANGLES 
-- Bitmap Rectangle Routines 

CreateRectangle: PUBLIC PROCEDURE 

[bitmap: BMHandle, xO, width: xCoord, yO , height: yCoord] 

RETURNS[Rptr]; 
DestroyRectangle: PUBLIC PROCEDURE[rectangle: Rptr]; 
MoveRectangle: PUBLIC PROCEDURE 

[rectangle: Rptr, x: xCoord, y: yCoord]; 
GrowRectangle: PUBLIC PROCEDURE 

[rectangle: Rptr, width: xCoord. height: yCoord]; 
ClearBoxInRectangle: PUBLIC PROCEDURE 

[rectangle: Rptr, xO, width: xCoord, yO, height: yCoord, gray: GrayPtr]; 
DrawBoxInRectangle: PUBLIC PROCEDURE 

[rectangle: Rptr, xO, width: xCoord, yO, height: yCoord]; 
ScrollBoxInRectangle: PUBLIC PROCEDURE 

[rectangle: Rptr, xO, width: xCoord, yO , height: yCoord, incr: INTEGER]; 
InvertBoxInRectangle: PUBLIC PROCEDURE 

[rectangle: Rptr, xO, width: xCoord, yO , height: yCoord]; 
IsRectangleVisible: PUBLIC PROCEDURE[rectangle: Rptr] 

RETURNS[BOOLEAN]; 
WriteRectangleChar: PUBLIC PROCEDURE 

[rectangle: Rptr, x: xCoord, y: yCoord, char: CHARACTER, pfont: FAptr] 

RETURNsfxCoord. yCoord]; 
WriteRectangleString: PUBLIC PROCEDURE 

[rectangle: Rptr, x: xCoord, y: yCoord. str: STRING, pfont: FAptr] 

RETURNS[xCocrd, yCoord]; 
SaveRectangle:PUBLIC PROCEDURE [rectangle: Rptr] RETURNS [POINTER]; 
RestoreRectangle:PUBLIC PROCEDURE [rectangle: Rptr, SegPtr: POINTER]; 

-- Bitmap Routines 

GetDefaultBitmap: PUBLIC PROCEDURE 

RETURNS[BMHandle]; 
CreateBitmap: PUBLIC PROCEDURE 

[pagesformap , wordsperl ine: CARDINAL] 

R£TURNS[BMHandle]; 
DestroyBitmap: PUBLIC PROCEDURE[mapdata: BMHandle] 

RETURNS[POINTER]; 
UpdateBitmap: PUBLIC PROCEDURE [mapdata: BMHandle] 

RETURNS[DCBptr]; 
ReallocateBi tmap: PUBLIC PROCEDURE 

[mapdata: BMHandle, pagesformap, wordsperl ine: CARDINAL]; 
OisplayBitmap: PUBLIC PROCEDURE 

[mapdata: BMHandle]; 
UnDisplayBitmap: PUBLIC PROCEDURE[mapdata: BMHandle]; 
CursorToMapCoords: PUBLIC PROCEDURE 

[mapdata: BMHandle, x: xCoord, y: yCoord] 

RETURNS[xCoord. yCoord]; 
RectangleToMapCoords: PUBLIC PROCEDURE 

[rectangle: Rptr, x: xCoord, y: yCoord] 

RrTURNS[xCoord, yCoord]; 
CursorToRecCoords : PUBLIC PROCEDURE 

[rectangle: Rptr, x: xCoord, y: yCoord] 

RrTURNS[xCoord, yCoord]; 

-- Displ ay Stuff 

DisplayOff: PUBLIC PROCfDURE [backgtype]; 
DisplayOn: PUBLIC PROCEDURE; 

-- font Stuff 

ComputeCharWidth: PUBI IC PROCEDURE 
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[char: CHARACTER, font: POINTER] 

RETURNS [CARDINAL]; 
GetDefauUFont: PUBLIC PROCEDURE 

RETURNS [FAptr. CARDINAL]; 
GetFont: PUBLIC PROCEDURE [filename: STRING] 

RETURNS [SegmentDefs.FneSegmentHandle]; 
LoadFont: PUBLIC PROCEDURE [segment: SegmentDef s . FileSegmentHandle] 

RETURNS [p: Fptr]; 

-- Hard/Soft BitBU Interface 

BitBU: PUBLIC PROCEDURE [ptr: BBptr]; 

- Machine Implimented Procedures 

CONVERT: MACHINE CODE 

[char: CHARACTER, font: POINTER, DestWord: BMptr, 
ScanLineLength: CARDINAL. DestBit: [0..15]] 
RETURNS [CARDINAL, [0..15]. BMptr] * 
-- Scan Convert the char into the bitmap-- 
INLINE [Mopcodes.zCONVERT]; 

HardwareBitBU: MACHINE CODE 

[ptr: BBptr] = INLINE [Mopcodes . zBITBLT] ; 

END. of RectangleDef 



